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HM HH LL DDDDDDDD Lalad ae AAAAAA I1I111 NN NN 
He HH LL DDDDDDDD Lala Me AAAAAA III NN NN 
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HH LL 0D DD MM MM AAAAAAALAA I] NN NNNN 
HH HH LL 0D DD MM MM AA AA Il NN NN ones 
HH HH LL 0D DD MM MM AA AA II NN NN ones 
HH HH LLLLLLLLLL DDDDDDDD MM MMA AA AA III NN NN sees 
HH HH LLLLLLLLLL ODDDDDDDD 4M MM AA AA III] NN NN sewn 

| 

LL III] sSSSSSSS | 
LL HII! SSSSSSSS 
LL II $s 
LL 11 SS | 
LL I] $s 
LL I] SS 
LL I] $SSSSS 
LL I] SSSSSS 
LL I] $s 
LL 1] SS 
LL Il SS 
LL I] $s 
LLLLLLLLLL H1111] SSSSSSSS 
LLLLLLLLLL HI111 SSSSSSSS 
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++ 


$$Ep=1986 01:28:32 EACD-SACIMLDRAIN-MAR; 1 


TRIE a yee ae = HLD MAINLINE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS oF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sof Tw ARE OR ANY OTHER 
COPIES THEREOF oy a} BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
luau TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS " 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EGUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


(LARA RAAAAAAAARALAALALALALA LALA SALAS SERRE RRR RARER RRR EASE A RARER REESE RRR R ES SY 


; FACILITY: DECNET HOST LOADER (HLD) 
; ABSTRACT: 


NET/VAX-11. IT PROVIDES ACCESS TO 


HLD IS A COMPONENT OF DEC Vv 
RED ON A VAX SYSTEM. 


RSX11S TASK IMAGES STO 


; ; ENVIRONMENT: 


: AUTHOR: SCOTT G. DAVIS, 


THE HLD IMAGE EXECUTES IN THE CONTEXT OF A PROCESS CREATED BY 
NETACP. IT RUNS IN USER MODE AND REQUIRES NETWORK PRIVILEGE. 


CREATION DATE: 10-MAY-79 


; ; MODIFICATIONS: 


v001 $600003 19-Mar-1984 
Cleanup log on normal termination 


; INCLUDE FILES 


; ; MACROS: 


NONE 


Page 
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13 
DRAIN = HLD MAINLINE 16*SEP=1984 01:41:35 VAX/VMS Macro v06-00 ¢ 
raat MLDESTART + MAINLINE green obe By iSeiks FARSMES Bacre v06=00 ae of, 
; -SBTTL HLDSSTART = MAINLINE 
"BSECT HLDSCODE NOSHR EXE ,RD,NOWRT 


FUNCTIONAL DESCRIPTION: 
HLDSSTART IS RESPONSIBLE FOR HLD INITIALIZATION AND TERMINATION. 
CALLING SEQUENCE: 
HLD IS INITIATED BY NETACP. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
LOGICAL NAME ‘SYSS$NET' 


Se Se Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Se Se 
aa 


.ENTRY HLDSSTART, “M<> ; ENTRY POINT FROM EXECUTIVE 
: OPEN THE PRINT FILE 


MOVAB W*HLOSPRTFAB,RO SET TO OPFN FILE 


BSBW HLDSRMS OPEN : DO IT 
MOVAB W*HLDSPRTRAB,RO t SET TO CONNECT REACORD STREAM 
BSBW § HLDSRMS_CONNECT : DO IT 


H 
$s 
$ 
$ 
$ 
B 
8 
B 
8 
F 
F 
H 
H 
H 
4 
H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
" 
N 
N 
N 
R 
Ss 
Ss 
S 
$s 


CREATE A CONTROL/INFORMATION PATH TO NETACP IN PREPARATION FOR 
pashan: NETWORK 1/0. ALSO ASSOCIATE A MAILBOX WITH THE 


OOO 000090909 09 09 09 09 0909 09 SI NIN NIN NINN NNIOOA OO 


SeSe33ecScs oo 


SASSIGN_S DEVNAM=W*HLDS$GQ_LNKNAM- ; "NETO:"' REFERS TO NETACP 
CHAN=W*HLDSGW_LNKCHN ©; STORE CHANNEL # 
CHECK_SS : CHECK STATUS CODE 
100 : TRANSLATE THE LOGICAL NAME 'SYSSNET'. ITS EQUIVALENCE STRING IS 
101 ; SET-UP BY NETACP TO BE THE ENTIRE NETWORK CONNECT BLOCK (NCB) WHICH 
10¢ ; IS REQUIRED TO GAIN NON-TRANSPARENT ACCESS TO THE NETWORK. 
1 2 
1 MOVAG — W*HLDSGO_NCBDESC .R7 ; GET ADDRESS OF NCB DESCRIPTOR p 
40 8 1 MOVZBL 4,(R7) 3 RE BUFFER SIZE ro 
04 A? 0000'CF 1 MOVAB W*HLDSGT_NCBBUF,.4(R7) _; STORE BUFFER ADDRESS J 
1 STRNLOG_S LOGNAM=W“HLDS$GQ_SYSNAM- ; ADDRESS OF LOGICAL NAME DESCRIPTOR | C 
1 RSLLEN=(R7)= ; UPDATE SIZE IN NCB DESCRIPTOR P 
11 RSLBUF =(R7) ; PUT EQUIVALENCE STRING IN NCB S 
1 CHECK_SS : CHECK STATUS CODE p 
115 ;¢¢ Pp 


Kk 3 
vO4-000 WLDSSTART = MAINLINE "BrSEb=1984 01:58:32 EMCOVSRCIMLDRAIN MAR? == 29* GZ 


rts We ; THE GENERAL FORMAT OF THE EQUIVALENCE STRING DERIVED FROM SYSSNET IS: 
40 116 : nodespec:: ipetore close. S consists 3 string” 
40 117; userdata (before close consists of 
40 18 § 4 bytes of rad50 task name 
40 119; 1 word of partition a eres (0=>mapped) 
40 120; 1 word of partition size (in bytes or 32.-word blocks) 
4D 121; 1 byte of - (general purpose) flag - 0=no,1=>lun fixing 
040 1 § $ 1 byte of function code (-lsoverlay,0=read, 1=chkread, oe ehkwrt? 
rt 4 ! 7 3 2 words of VBN if overlay request 
4D 125 ; On return, the optional data consists of: 
4D 1 § ; 1 word of transfer size 
eH : i 3 1 byte of no. of luns to fix 
4D 3 $ THE FOLLOWING WILL BE OUTPUT TO THE PRINT FILE: 
94D 1: nodespec::"‘objecttype=taskid"’ 
One ! : THE FOLLOWING WILL BE PUT INTO THE NCB FOR A CONNECT ACCEPT 
pnee 135 ; espec: Objecttypestaskid/nent., two_byte 
Bo¢p : $: 3 useréens a of actual transfer size in i, of partition size 
04D 138° 
04 B87 67 7 7 pe8 173 Loe #*A\:\,(R7),84(R7) : Fa Pig + "OUND 
0000' CF 67 5 A $3 141 SUBW3 RQ. (R7) Pg tin aNQQEDEst STORE NAME LENGTH 
oooo'cr §=5 0 005A 148 MOVL W°HLDS6 ARAM2 ADDRESS OF NCB DESCRIPTOR 
61 50 2F 3A OOSF 14 LOCC BANA, ot AIS : FIND TASKID DELIMITER 
7 12 st Vee 208 BNEQ 3; BRANCH IF SLASH FOUND 
50 0000 ' 8F 3¢ 065 108 ‘ MOVZWL #SS$_IVDEVNAM,RO ; MAKE THIS THE EXIT ERROR STATUS 
64 «171 DOA ef BRB HLDSEXIT_TO_VMS ; FATAL ERROR!! 
06C 149 ; RESPOND TO THE CONNECT INITIATE WITH A CONNECT CONFIRM (WITHOUT USERDATA) 
943 139 ; TO COMPLETE THE LOGICAL LINK. 
BEE EE os 
ns @ 2 6¢ 134 "ADDL ss #3, R11 ; SKIP ''/'' AND 2 RESERVED BYTES 
3 139 ; NOW VERIFY THE CONNECT AND CHECK THE DATA FILE 
FFBE* 0 ef 1 BSBW HLDSGET FILE ; SCAN HLD.DAT 
FF8B° Hy ; 133 BSBW HLDSOPER_ TSKFIL ; OPEN AND PROCESS THE TASK FILE 
, 161 : CONFIRM THE LOGICAL LINK 
FF88" 30 07 188 * : BSBW =HLDSNET_IO ; CONFIRM THE LINK 
07 192 3 : Now fix it so that HLD waits for disconnect if transfer is to host. 
7 163 : SSETEF_S EFN=#2 ; Set event fla as default 
00° 0000'CF 1 16 CMPW W*HLDSGW_ SAVEFUNC, s*#108. nine ; reading? 
1E * 1 BNEQ 40$ ; If NEQ 
170 ; 


rus st ot sea aT 


= oy ~I —ai & 
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; Issue a phony Q10 which will terminate when the Link is broken 


1% 
172 ; 
1 $Ql0_s - _i ISSUE THE REQUEST 
174 CHAN=  W*HLDSGW_LNKC 
175 FUNC= S*#10$_WAITEVBLK -; Do a write 
126 EFN= #2- : 
3 pes 0 
= 
~ 173 40$: 
ne 1 : NOW DO THE ACTUAL TASK TRANSFER 
0000' CF 9000" CF 6 1 | : MOVAB W*HLDSAB_BUFFERW*HLDSGL IOPARAM ; SET BUFFER ADDRESS 
0000' CF 000' CF : AD 184 MOVW  W*HLDSGWISAVEFUNC,W“HLDSGW_IOFUNC ; SET UP TRANSFER FUNCTION 
& 4 185 BSBBs«édO| I ; 6O_THE TRANSFER 
; $ 7D 086 1 $ mova ru : SET UP FOR LUN BLOCK TRANSFER 
Oo0O'cF 60 b 089 «(1 MOVL  #2,W*HLDSGL_TSKBKT ; Set ue VBN of LUN block(s) 
iE ab 8 BSBB «00. 10 : SEND THEM, MAYBE 
+5 139 : Now wait, if necessary 
agco 19¢ ‘ SWAITFR_S EFN=#2 
50 00030001 8F 00 Base 137 MOVL #*x30001,R0 ; Force ‘'NORMAL'’ to the log file 
O0D0 195 HLDSEXIT_TO_VMS:: : 
50 43 0D 196 PuSAL : SAVE EXIT STATUS CODE 
FF2B' 30 OOD 19 BSBW  HLDSPRINT 3 PRINT RESULTS 
00D 198 SEXIT_S (SP)+ : EXIT TO VMS 


SSEp=1986 81:38:32 EACDYSRCTACORAINcmaR:1 =| 28° h 


HLDSSTART + MAINLINE 


DE p++ 
DE ; 
DE ; DO_10 = CALL 1/0 ROUTINES TO DO REAL TRANSFER WORK 
DE 4 : INPUTS: 
DE 5: RB - NO. OF INTEGRAL BLOCKS TO TRANSFER 
DE : ; R9 = SIZE IN BYTES OF BLOCK A PreR LAST INTEGRAL BLOCK OR 0 
ODE i-- 
SpE 509 
Q0000'CF O000'CF 3¢ Soe 9 wie MOVZWL W*HLDSGW_IOLEN,W*HLDSGL_IOPARAM2 ; LENGTH OF ALL BUT LAST TRANSFER 
65 if oes 1 “a BRB 50$ ; CHECK THE LENG FULL BLOCK’ CASE 
OA 10 OOF7 214 °° #&«BSBB 55$ : CALL THE 1/0 ROUTINES 
FB 58 F4 OOE9 215 50$:  SOBGEQ RB,40$ + LOOP 
at 
0000'CF 59 80 OEC 218 MOVW  R9,WHLDSGL_IOPARAM2 =; SIZE OF LAST TRANSFER 
oc 1 OOF} 19 ‘ae BEQL 608 : IF EQL NOTHING 
0000'DF 16 it A |. 99s @W*HLDSGL_IOROUT_1 ; D0 1ST KIND OF 1/0 
0000'DF 16 OOF? é JSB a@W*HLD$GL-1OROUT—2 : DO 2ND KIND OF 1/0 
0000'CF 06 OOFB a INCL  W*HLOSGL_TSKBKT ~ ‘ DOVANCE THE BLOCK NO. 
OOFF 34 60S: 
05 OOFF 225 RSB : DONE 
0100 226 
0100 227 .END —_- HLDSSTART 


<= 


HLOMAIN 
Symbol table 


EN 
HLDSGW_LNKCHN 
MLD SGH SAVEFUNC 


DSNET_10 
NCDSOPER_ TSKFIL 
HLDSPRINT 


SYSSWAITFR 


PSECT name 


ABS _ 
HLDSCODE 


Phase 


Initialization 


0000001 
OOOOODE 


00000000 RG 


greeenrenre 
geeeeenre 
geeerenre 
geterene 
geererere 
Seeeeeee 
geeerenre 
gaeeerene 
Reeeeeee 
reeereeee 
geereeere 
eeeerrne 
geereene 
geeeeeee 
eeereeee 
geeereee 
reeeeene 
gereeene 
geeeereer 
Seeeeene 
geeeeeee 
geereeee 


00000000 RG 


Reeeeree 
gerrarene 
geeeereer 
gereeene 
geeeaeree 
reeeeeee 
grrrerre 
gereeree 
gereeeee 


aE processing 


ae table sort 
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SM OK OE OE OE OE OE OE OE OE OE OE OE EO OE KC 
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ed ad dd od od od 


Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000100 (¢ 256.) 0O1¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


t$ecer mers eer nme tere seme + 


! ; Performance indicators ; 


Elapsed Time 


cE UG 


Page faults 


i 


<= 


HLDMAIN = HLD MAINLINE 16-SEP-1984 01:41: AX/VMS Macro Vv04-00 Page 7 
heer Macro Run Statistics oe ets 9 8:53:83 HLD.SRCJHLDMAIN.MAR; 1 . (1) 
Pass f 5 :00: § 00:02. : 

Symbol table output :00: :00:00. 

Psect synopsis output :00: 01 


Cross-reference output 
Assembler run totals. 36 


1 :00: 
8 00:00:17:59 


Ine working set Limit was 1050 pages. 

4983 bytes (10 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 37 non-local and 7 local symbols. 
source Lines were read in Pass 1, producing 16 object records in Pass 2. 


pages of virtual memory were used to define 11 macros. 


de ear erocen an se en ecwesc sen as ena} 


! Macro Library statistics ! 


eames nw eae mmr new mm ce es + 


Macro Library name Macros defined 
“$522 SDUAEE: Put 08 JHLD.MLB;1 1 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 10 
TOTALS (all Libraries) 11 


99 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:HLDMAIN/OBJ=OBJ$:HLDMAIN MSRC$:HLDMAIN/UPDATE=(ENHS$:HLDMAIN) +LIB$:HLD/LIB 
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